home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 09-16.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  761b  |  46 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM ArrowWhite AS STRING*21
  6. DIM ArrowBlack AS STRING*12
  7.  
  8. REM ArrowWhite
  9. DATA &h00,&h0C,&h00, &h00,&h0F,&h00, &hFF,&hFC,&hC0
  10. DATA &hC0,&h00,&h30, &hFF,&hFC,&hC0, &h00,&h0F,&h00
  11. DATA &h00,&h0C,&h00
  12.  
  13. REM ArrowBlack
  14. DATA 6,1,9,2,2,9,1,19,7,2,8,1
  15.  
  16. IF FGtestmode(4,1) = 0 THEN
  17.    PRINT "This program requires a 320 x 200 CGA graphics mode."
  18.    STOP
  19. END IF
  20.  
  21. FOR I = 1 TO 21
  22.    READ Item
  23.    MID$(ArrowWhite,I) = CHR$(Item)
  24. NEXT
  25.  
  26. FOR I = 1 TO 12
  27.    READ Item
  28.    MID$(ArrowBlack,I) = CHR$(Item)
  29. NEXT
  30.  
  31. OldMode = FGgetmode
  32. FGsetmode 4
  33.  
  34. FGsetcolor 2
  35. FGrect 0, 319, 0, 199
  36.  
  37. FGmove 10, 10
  38. FGdrawmask ArrowBlack, 12, 10
  39. FGdrwimage ArrowWhite, 3, 7
  40. FGwaitkey
  41.  
  42. FGsetmode OldMode
  43. FGreset
  44.  
  45. END
  46.